object OneCalcForm: TOneCalcForm
  Left = 0
  Top = 0
  Caption = #1056#1086#1079#1088#1072#1093#1091#1085#1086#1082
  ClientHeight = 484
  ClientWidth = 492
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 210
    Width = 492
    Height = 258
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    ExplicitHeight = 274
    object TabSheet1: TTabSheet
      Caption = #1042#1093#1110#1076#1085#1110' '#1076#1072#1085#1085#1110
      ExplicitHeight = 246
      object DBGridFiles: TDBGrid
        Left = 0
        Top = 31
        Width = 484
        Height = 199
        Hint = #1055#1086#1076#1074#1110#1081#1085#1080#1081' '#1082#1083#1110#1082' '#1074#1110#1076#1082#1088#1080#1074#1072#1108' '#1092#1072#1081#1083
        Align = alClient
        DataSource = DataSourceQueryFiles
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnDblClick = DBGridFilesDblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'GroupName'
            Title.Caption = #1043#1088#1091#1087#1087#1072' '
            Width = 306
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Path'
            Title.Caption = #1064#1083#1103#1093' '#1076#1086' '#1092#1072#1081#1083#1091
            Width = 219
            Visible = True
          end>
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 484
        Height = 31
        Align = alTop
        BevelEdges = []
        BevelKind = bkSoft
        BevelOuter = bvNone
        Caption = #1030#1084#1087#1086#1088#1090#1086#1074#1072#1085#1110' '#1092#1072#1081#1083#1080' '#1079' '#1076#1072#1085#1080#1084#1080
        TabOrder = 1
      end
    end
    object TabSheet3: TTabSheet
      Caption = #1055#1088#1086#1084#1110#1078#1085#1110' '#1088#1077#1079#1091#1083#1100#1090#1072#1090#1080
      ImageIndex = 2
      ExplicitHeight = 246
      object MResListBox: TListBox
        Left = 0
        Top = 31
        Width = 484
        Height = 199
        Hint = #1055#1086#1076#1074#1110#1081#1085#1080#1081' '#1082#1083#1110#1082' '#1074#1110#1076#1082#1088#1080#1074#1072#1108' '#1076#1072#1085#1085#1110
        Style = lbOwnerDrawFixed
        Align = alClient
        ItemHeight = 20
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnDblClick = MResListBoxDblClick
        ExplicitHeight = 215
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 484
        Height = 31
        Align = alTop
        BevelEdges = []
        BevelKind = bkSoft
        BevelOuter = bvNone
        Caption = #1055#1077#1088#1077#1075#1083#1103#1076' '#1088#1077#1079#1091#1083#1100#1090#1072#1090#1110#1074' '#1088#1086#1079#1088#1072#1093#1091#1085#1082#1091
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = #1056#1077#1079#1091#1083#1100#1090#1072#1090#1080' '#1088#1086#1079#1088#1072#1093#1091#1085#1082#1091
      ImageIndex = 1
      ExplicitHeight = 246
      object ResListBox: TListBox
        Left = 0
        Top = 31
        Width = 484
        Height = 199
        Hint = #1055#1086#1076#1074#1110#1081#1085#1080#1081' '#1082#1083#1110#1082' '#1074#1110#1076#1082#1088#1080#1074#1072#1108' '#1076#1072#1085#1085#1110
        Style = lbOwnerDrawFixed
        Align = alClient
        ItemHeight = 20
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnDblClick = ResListBoxDblClick
        ExplicitHeight = 215
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 484
        Height = 31
        Align = alTop
        BevelEdges = []
        BevelKind = bkSoft
        BevelOuter = bvNone
        Caption = #1055#1077#1088#1077#1075#1083#1103#1076' '#1086#1089#1090#1072#1090#1086#1095#1085#1080#1093' '#1088#1077#1079#1091#1083#1100#1090#1072#1090#1110#1074' '#1088#1086#1079#1088#1072#1093#1091#1085#1082#1091
        TabOrder = 1
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 492
    Height = 185
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 492
      Height = 185
      Align = alClient
      Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1080' '#1088#1086#1079#1088#1072#1093#1091#1085#1082#1091':'
      TabOrder = 0
      DesignSize = (
        492
        185)
      object Label1: TLabel
        Left = 12
        Top = 40
        Width = 25
        Height = 13
        Caption = #1054#1087#1080#1089
      end
      object Label2: TLabel
        Left = 12
        Top = 120
        Width = 31
        Height = 13
        Caption = #1040#1074#1090#1086#1088
      end
      object Label3: TLabel
        Left = 12
        Top = 80
        Width = 74
        Height = 13
        Caption = #1063#1072#1089' '#1089#1090#1074#1086#1088#1077#1085#1085#1103
      end
      object Label4: TLabel
        Left = 12
        Top = 160
        Width = 48
        Height = 13
        Caption = #1047#1072' '#1087#1077#1088#1110#1086#1076
      end
      object Label5: TLabel
        Left = 283
        Top = 80
        Width = 93
        Height = 13
        Caption = #1057#1093#1077#1084#1072' '#1088#1086#1079#1088#1072#1093#1091#1085#1082#1091
      end
      object DBEdit1: TDBEdit
        Left = 96
        Top = 37
        Width = 385
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        DataField = 'Descr'
        DataSource = DataSourceQueryOneCalc
        TabOrder = 0
      end
      object DBEdit3: TDBEdit
        Left = 388
        Top = 77
        Width = 93
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        DataField = 'Descr1'
        DataSource = DataSourceQueryOneCalc
        TabOrder = 1
      end
      object DBEdit2: TDBEdit
        Left = 96
        Top = 117
        Width = 181
        Height = 21
        DataField = 'Autor'
        DataSource = DataSourceQueryOneCalc
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 96
        Top = 157
        Width = 181
        Height = 21
        DataField = 'Period'
        DataSource = DataSourceQueryOneCalc
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 96
        Top = 77
        Width = 181
        Height = 21
        DataField = 'Created'
        DataSource = DataSourceQueryOneCalc
        TabOrder = 4
      end
    end
  end
  object YesResPanel: TPanel
    Left = 0
    Top = 185
    Width = 492
    Height = 25
    Hint = #1053#1072#1090#1080#1089#1085#1110#1090#1100' '#1082#1085#1086#1087#1082#1091' "'#1056#1086#1079#1088#1072#1093#1091#1074#1072#1090#1080'"'
    Align = alTop
    BevelEdges = []
    BevelKind = bkSoft
    BevelOuter = bvNone
    Caption = #1056#1086#1079#1088#1072#1093#1091#1085#1086#1082' '#1085#1077' '#1074#1080#1082#1086#1085#1072#1085#1086', '#1088#1077#1079#1091#1083#1100#1090#1072#1090#1080' '#1085#1077#1076#1086#1089#1090#1091#1087#1085#1110
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object CalcProgressBar: TProgressBar
    Left = 0
    Top = 468
    Width = 492
    Height = 16
    Align = alBottom
    Step = 1
    TabOrder = 3
    Visible = False
    ExplicitLeft = 2
    ExplicitTop = 167
    ExplicitWidth = 488
  end
  object DataSourceQueryOneCalc: TDataSource
    DataSet = QueryOneCalc
    Left = 368
    Top = 160
  end
  object QueryOneCalc: TIBQuery
    Database = MainData.IBDatabase
    Transaction = MainData.IBTransaction
    SQL.Strings = (
      'select *  from "Calcs" c'
      'join "CalcTempls" t on c."id_tmpl"=t."id_tmpl"'
      'where c."id_calc"= :idcalc')
    Left = 328
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idcalc'
        ParamType = ptUnknown
      end>
    object QueryOneCalcid_calc: TIntegerField
      FieldName = 'id_calc'
      Origin = '"Calcs"."id_calc"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object QueryOneCalcDescr: TIBStringField
      FieldName = 'Descr'
      Origin = '"Calcs"."Descr"'
      Size = 200
    end
    object QueryOneCalcPeriod: TIBStringField
      FieldName = 'Period'
      Origin = '"Calcs"."Period"'
      Size = 100
    end
    object QueryOneCalcCreated: TDateTimeField
      FieldName = 'Created'
      Origin = '"Calcs"."Created"'
    end
    object QueryOneCalcResFile: TBlobField
      FieldName = 'ResFile'
      Origin = '"Calcs"."ResFile"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object QueryOneCalcAutor: TIBStringField
      FieldName = 'Autor'
      Origin = '"Calcs"."Autor"'
      Size = 50
    end
    object QueryOneCalcid_tmpl: TIntegerField
      FieldName = 'id_tmpl'
      Origin = '"Calcs"."id_tmpl"'
    end
    object QueryOneCalcDescr1: TIBStringField
      FieldName = 'Descr1'
      Origin = '"CalcTempls"."Descr"'
      Size = 100
    end
    object QueryOneCalcMIDDLRESOPT: TIBStringField
      FieldName = 'MIDDLRESOPT'
      Origin = '"CalcTempls"."MIDDLRESOPT"'
      Size = 2000
    end
    object QueryOneCalcRESOPT: TIBStringField
      FieldName = 'RESOPT'
      Origin = '"CalcTempls"."RESOPT"'
      Size = 2000
    end
  end
  object QueryFiles: TIBQuery
    Database = MainData.IBDatabase
    Transaction = MainData.IBTransaction
    SQL.Strings = (
      'select f.* ,  g.*, f2."InFile" inFileArc'
      'from "ImportedFiles" f '
      'join "ImportGroups" g on (f."id_Group"=g."id_Group")'
      'left join "ImportedFiles" f2 on f.arc_id_file=f2."id_file" '
      'where f."id_calc"= :idcalc')
    Left = 328
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idcalc'
        ParamType = ptUnknown
      end>
    object QueryFilesid_file: TIntegerField
      FieldName = 'id_file'
      Origin = '"ImportedFiles"."id_file"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object QueryFilesPath: TIBStringField
      FieldName = 'Path'
      Origin = '"ImportedFiles"."Path"'
      Size = 200
    end
    object QueryFilesid_Group: TIntegerField
      FieldName = 'id_Group'
      Origin = '"ImportedFiles"."id_Group"'
      Required = True
    end
    object QueryFilesid_calc: TIntegerField
      FieldName = 'id_calc'
      Origin = '"ImportedFiles"."id_calc"'
      Required = True
    end
    object QueryFilesInFile: TBlobField
      FieldName = 'InFile'
      Origin = '"ImportedFiles"."InFile"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object QueryFilesid_Group1: TIntegerField
      FieldName = 'id_Group1'
      Origin = '"ImportGroups"."id_Group"'
      Required = True
    end
    object QueryFilesGroupName: TIBStringField
      FieldName = 'GroupName'
      Origin = '"ImportGroups"."GroupName"'
      Size = 200
    end
    object QueryFilesStepOrder: TIntegerField
      FieldName = 'StepOrder'
      Origin = '"ImportGroups"."StepOrder"'
    end
    object QueryFilesARC_ID_FILE: TIntegerField
      FieldName = 'ARC_ID_FILE'
      Origin = '"ImportedFiles"."ARC_ID_FILE"'
    end
    object QueryFilesINFILEARC: TBlobField
      FieldName = 'INFILEARC'
      Origin = '"ImportedFiles"."InFile"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object DataSourceQueryFiles: TDataSource
    DataSet = QueryFiles
    Left = 368
    Top = 112
  end
  object DocOpenDialog: TOpenDialog
    Filter = 'doc|*.doc|txt|*.txt'
    Left = 416
    Top = 108
  end
end
